home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 April
/
EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso
/
Recent1
/
Filer4_01.lha
/
Filer
/
Rexx
/
DCC.filer
< prev
next >
Wrap
Text File
|
1996-07-29
|
1KB
|
86 lines
/*
$VER: DCC.filer 1.0 (29.7.96)
Author:
Matthias Scheler <tron@lyssa.owl.de>
Function:
All selected files in the active directory listview will be transfered via
DCC with the Grapevine IRC Client
Requires:
Grapevine 1.452 registered or newer up and running
Call:
DCC
Example for "Filer.RC":
BUTTON ...,...,"DCC Send","DCC SEND"
*/
PARSE ARG Protocoll
IF Protocoll="" THEN Protocoll="SEND"
OPTIONS RESULTS
IF ~SHOW('Ports','GVREXX.01') THEN
DO
ALERTBOX 'Grapevine is not running.'
EXIT 5
END
GETSOURCEPATH
IF RESULT="RESULT" THEN EXIT 5
SourceDir=RESULT
LOCKFILER
IF RESULT="RESULT" THEN EXIT 5
Key=RESULT
PANEL OFF
'STATUS DCC Transfer.'
'SETSTRING ""'
'GETSTRING Enter Nickname:'
IF RESULT="RESULT" THEN
DO
PANEL ON
UNLOCKFILER Key
'STATUS DCC Transfer aborted.'
EXIT 5
END
Nickname=RESULT
GETNUMENTRIES
Num=RESULT
DO Index=1 TO Num
GETNAME Index
Data=RESULT
Name=SUBSTR(Data,2)
IF LEFT(Data,1)="f" THEN
DO
'HISTORY Sending' Name 'via "DCC' Protocoll||'".'
IF RIGHT(SourceDir,1)=":" THEN SourceName=SourceDir||Name
ELSE SourceName=SourceDir||"/"||Name
ADDRESS 'GVREXX.01' 'DCC SEND' Nickname SourceName
TOGGLEENTRY Index
DoIt=1
END
END
'STATUS Operation finished !'
PANEL ON
UNLOCKFILER Key